;;;Checks for the existence of IrfanView.exe and sets symbol 'found_iv' to its path for use by other functions.
;;;if it is found (have_irfanview) returns T in the app it is used in.
;;;
;;;		IrfanView, a free full-featured image editing/conversion application, can be freely downloaded
;;;		from the internet at the time of this writing.
;;;
;;;Function DOS_SPECIALDIR requires the version of Doslib that matches your AutoCAD version.  The correct version
;;;of Doslib is freely available from Robert McNeel & Associates via downloadable from their website.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2010
;;;		   EDITED: 8-29-2010
;;;
;;;****************************************************************************
(DEFUN have_irfanview ()
  (IF check_for_doslib NIL (LOAD "check_for_doslib" "\nFile CHECK_FOR_DOSLIB.LSP not loaded! "))
  (check_for_doslib)
  (COND
    ((SETQ found_iv (FINDFILE "i_view32.exe")))
    ((AND DOS_SPECIALDIR (DOS_SPECIALDIR 38)
          (SETQ found_iv 
           (FINDFILE
             (STRCAT (DOS_SPECIALDIR 38) "IrfanView\\i_view32.exe")
           ) ;_ end of FINDFILE
          )
    ))
    ((AND DOS_SPECIALDIR (DOS_SPECIALDIR 42)
          (SETQ found_iv 
           (FINDFILE
             (STRCAT (DOS_SPECIALDIR 42) "IrfanView\\i_view32.exe")
           ) ;_ end of FINDFILE
          )
    ))
    ((AND DOS_SPECIALDIR (DOS_SPECIALDIR 40)
          (SETQ found_iv
           (FINDFILE
             (STRCAT (DOS_SPECIALDIR 40) "IrfanView\\i_view32.exe")
           ) ;_ end of FINDFILE
          )
    ))
    ((AND (GETVAR "RoamableRootPrefix")
          (SETQ found_iv
           (FINDFILE
             (STRCAT (GETVAR "RoamableRootPrefix") "IrfanView\\i_view32.exe")
           ) ;_ end of FINDFILE
          )
    ))
    (T (SETQ found_iv NIL))
  ) ;_ end of COND
) ;_ end of DEFUN
;;;****************************************************************************
